home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 5 (Internal Edition) / Apple R&P Lib Internal v5.0.iso / 6-Developer Demos / Developer Demos-Ed. / Macintosh School® CD-ROM Demo / Macintosh SchoolÆ CD-ROM Demo / card_10562.txt < prev    next >
Text File  |  1990-08-14  |  6KB  |  192 lines
  1. -- card: 10562 from stack: in
  2. -- bmap block id: 11455
  3. -- flags: 4000
  4. -- background id: 4754
  5. -- name: Report Manager
  6. ----- HyperTalk script -----
  7. on rollingDemo
  8.   answer "Report Manager demo will take approx. 7 min" with "Cancel" or "OK"
  9.   if it is "Cancel" then exit rollingDemo
  10.   set the cursor to none
  11.   lock screen
  12.   go to card "Rolling Demo Instructions" of this background
  13.   unlock screen with dissolve fast
  14.   repeat until the mouseClick
  15.   end repeat
  16.   set the cursor to hand
  17.   autoMouse moveMouse,420,60
  18.   click at the loc of bg button id 7
  19.   showInfo "Introduction 1",false
  20.   showInfo "Introduction 2",false
  21.   wait 1 second
  22.   set the cursor to hand
  23.   autoMouse moveMouse,18,30
  24.   click at the loc of background button "Close"
  25.   wait 1 second
  26.   autoMouse menuMouse,2,2 -- Open‚Ķ
  27.   wait 30
  28.   autoMouse moveMouse,200,115
  29.   click at the loc of card button id 3
  30.   wait 30
  31.   autoMouse moveMouse,378,200
  32.   click at the loc of card button "Open"
  33.   wait 3 seconds
  34.   autoMouse moveMouse,462,73
  35.   click at the loc of background button id 1
  36.   wait 2 seconds
  37.   autoMouse moveMouse,144,307
  38.   click at the loc of card button "OK"
  39.   showInfo "Macros",false
  40.   wait 1 second
  41.   set the cursor to hand
  42.   autoMouse menuMouse,2,17 -- Transfer
  43.   wait 1 second
  44.   autoMouse moveMouse,479,142
  45.   click at the loc of background button id 24
  46.   wait 30
  47.   autoMouse menuMouse,6,7 -- Custom Templates
  48.   wait 1 second
  49.   autoMouse moveMouse,82,257
  50.   click at the loc of card button "OK"
  51.   wait 1 second
  52.   autoMouse moveMouse,180,116
  53.   click at the loc of card button "Letter"
  54.   wait 30
  55.   autoMouse moveMouse,378,200
  56.   click at the loc of card button "Open"
  57.   wait 3 seconds
  58.   autoMouse moveMouse,18,30
  59.   click at the loc of card button "Close"
  60.   wait 30
  61.   autoMouse menuMouse,2,17 -- Report Manager
  62.   wait 30
  63.   autoMouse moveMouse,18,30
  64.   click at the loc of background button "Close"
  65.   wait 1 second
  66.   autoMouse menuMouse,2,2 -- Open‚Ķ
  67.   wait 30
  68.   autoMouse moveMouse,200,132
  69.   click at the loc of card button id 4
  70.   wait 30
  71.   autoMouse moveMouse,378,200
  72.   click at the loc of card button "Open"
  73.   showInfo "Report Card",false
  74.   showInfo "Features",false
  75.   showInfo "Preview",false
  76.   wait 1 second
  77.   set the cursor to hand
  78.   autoMouse menuMouse,2,17 -- Transfer
  79.   wait 1 second
  80.   autoMouse menuMouse,4,1 -- By Class
  81.   if the result is "Item not found" then -- test for XCMD bug
  82.     send "doMenu By Class" to background "Report Cards"
  83.   end if
  84.   wait 1 second
  85.   autoMouse moveMouse,479,106
  86.   send "mouseUp down" to background button id 19
  87.   wait 30
  88.   autoMouse menuMouse,4,2 -- By Student
  89.   wait 1 second
  90.   autoMouse moveMouse,479,142
  91.   click at the loc of background button id 24
  92.   wait 30
  93.   autoMouse menuMouse,6,7 -- Custom Templates
  94.   wait 1 second
  95.   autoMouse moveMouse,51,197
  96.   click at the loc of card button "Selected items"
  97.   wait 30
  98.   autoMouse moveMouse,279,179
  99.   click at the loc of card button id 10
  100.   wait 30
  101.   autoMouse moveMouse,294,179
  102.   click at the loc of card button id 11
  103.   wait 30
  104.   autoMouse moveMouse,309,179
  105.   click at the loc of card button id 12
  106.   wait 30
  107.   autoMouse moveMouse,325,179
  108.   click at the loc of card button id 13
  109.   wait 30
  110.   autoMouse moveMouse,429,222
  111.   click at the loc of card button id 30
  112.   wait 30
  113.   autoMouse moveMouse,444,222
  114.   click at the loc of card button id 31
  115.   wait 30
  116.   autoMouse moveMouse,82,257
  117.   click at the loc of card button "OK"
  118.   wait 1 second
  119.   autoMouse moveMouse,180,133
  120.   click at the loc of card button "Report Card"
  121.   wait 30
  122.   autoMouse moveMouse,378,200
  123.   click at the loc of card button "Open"
  124.   wait 2 seconds
  125.   autoMouse moveMouse,18,30
  126.   click at the loc of card button "Close"
  127.   wait 30
  128.   autoMouse menuMouse,2,17 -- Report Manager
  129.   wait 30
  130.   autoMouse moveMouse,18,30
  131.   click at the loc of background button "Close"
  132.   wait 1 second
  133.   autoMouse menuMouse,2,2 -- Open‚Ķ
  134.   wait 30
  135.   autoMouse moveMouse,378,200
  136.   click at the loc of card button "Open"
  137.   wait 2 seconds
  138.   autoMouse menuMouse,2,17 -- Transfer
  139.   wait 1 second
  140.   put getButton() into buttonNum
  141.   put the loc of background button buttonNum into buttonLoc
  142.   autoMouse moveMouse,item 1 of buttonLoc,item 2 of buttonLoc
  143.   click at the loc of background button buttonNum
  144.   wait 30
  145.   autoMouse menuMouse,7,11 -- Custom Templates
  146.   wait 30
  147.   autoMouse moveMouse,378,200
  148.   click at the loc of card button "Open"
  149.   wait 3 seconds
  150.   autoMouse moveMouse,18,30
  151.   click at the loc of card button "Close"
  152.   wait 30
  153.   autoMouse menuMouse,2,10 -- Report Manager
  154.   showInfo "Conclusion",false
  155.   wait 1 second
  156.   set the cursor to hand
  157.   autoMouse menuMouse,1,1 -- About
  158.   if the result is "Item not found" then -- test for XCMD bug
  159.     send "doMenu About" to background "Report Manager"
  160.   end if
  161. end rollingDemo
  162.  
  163. on showInfo fieldName,cardPict
  164.   lock screen
  165.   set the cursor to none
  166.   restoreMenuBar false
  167.   grayPicture cardPict
  168.   installMenuBar 1130,1131,1132,1133,1134,1135,1136,-206
  169.   show card field fieldName
  170.   unlock screen with dissolve
  171.   put the secs into temp
  172.   repeat until the mouseClick
  173.     if (the secs - temp) > 30 then show card field "Continue"
  174.   end repeat
  175.   lock screen
  176.   hide card field fieldName
  177.   hide card field "Continue"
  178.   pop card
  179.   unlock screen with dissolve
  180.   if the optionKey is down then exit to HyperCard
  181. end showInfo
  182.  
  183.  
  184. -- part contents for background part 5
  185. ----- text -----
  186. Report Manager
  187.  
  188. -- part contents for background part 6
  189. ----- text -----
  190. Report Card and Attendance summaries can be formatted to suit individual school requirements with the powerful Report Manager module. 
  191.  
  192. Reporting options are comprehensive and include student academic progress, disciplinary action comments, transcripts and honor roles, attendance statistics and timetables. The user can set the form of all reports and the criteria on which they are printed. A word processor is included with full mail merge features so that custom letters can be produced.